home *** CD-ROM | disk | FTP | other *** search
/ Mac Format 1995 June / MacFormat 25.iso / Shareware City / Developers / fortran-to-c-translator-11 / Mac F2C 1.1 / Mac F2C Libraries / libI77 Sources / wsle.c < prev    next >
C/C++ Source or Header  |  1995-01-28  |  708b  |  42 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "fmt.h"
  4. #include "lio.h"
  5.  
  6. #ifdef KR_headers
  7. integer s_wsle(a) cilist *a;
  8. #else
  9. integer s_wsle(cilist *a)
  10. #endif
  11. {
  12.     int n;
  13.     if(!f__init) f_init();
  14.     if(n=c_le(a)) return(n);
  15.     f__reading=0;
  16.     f__external=1;
  17.     f__formatted=1;
  18.     f__putn = t_putc;
  19.     f__lioproc = l_write;
  20.     L_len = LINE;
  21.     f__donewrec = x_wSL;
  22.     if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
  23.         err(a->cierr, errno, "list output start");
  24.     return(0);
  25.     }
  26.  
  27. integer e_wsle(Void)
  28. {
  29.     t_putc('\n');
  30.     f__recpos=0;
  31. #ifdef ALWAYS_FLUSH
  32.     if (fflush(f__cf))
  33.         err(f__elist->cierr, errno, "write end");
  34. #else
  35.     if (f__cf == stdout)
  36.         fflush(stdout);
  37.     else if (f__cf == stderr)
  38.         fflush(stderr);
  39. #endif
  40.     return(0);
  41.     }
  42.